home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / telecomm / fido / netcall20a.lha / NetCall20a / Install_NetCall < prev    next >
Encoding:
Text File  |  1995-02-06  |  8.4 KB  |  304 lines
  1. ; $VER: Install_NetCall 1.2 (05.02.95)
  2.  
  3. (transcript "Installiere NetCall...")
  4.  
  5. (set default-dest "Mail:bin")
  6.  
  7. ;
  8. ; Default-Katalog (English)
  9. ;
  10.  
  11. (set #NetCallDest   (cat "Where do you wish to install NetCall? "
  12.                          "(no drawer will be created by this script)"))
  13. (set #NetCallWorking     "Installing NetCall...")
  14. (set #NetCallIcon   (cat "\nDo you wish to install the NetCall-icon?\n\n"
  15.                          "(If you execute NetCall from the shell or from "
  16.                          "scripts only, you don't need the icon)"))
  17. (set #InstallNetCallIcon "Installing NetCall-icon...")
  18. (set #NetCallCfg    (cat "Where do you wish to install the NetCall "
  19.                          "configuration file (NetCall.cfg)?"))
  20. (set #CfgMan             "Install NetCall.cfg by hand")
  21. (set #InstallExtacy      "Installing extacy.library...")
  22. (set #ExtacyLibrary      "Where do you wish to install the extacy.library?")
  23. (set #German             "german (built-in)")
  24. (set #English            "english")
  25. (set #WhichCatalogs      "Which language-catalogs do you want to install?")
  26. (set #InstallEnglish     "Installing english catalog...")
  27. (set #CatalogDir    (cat "Where do you wish to install the "
  28.                          "language-catalog(s)?"))
  29. (set #WhichDocs          "Which documents do you want to install?")
  30. (set #EngAmigaGuide      "English Amiga-Guide")
  31. (set #EngDocumentation   "English Document (ASCII)")
  32. (set #EngTeXDVI          "English TeX DVI")
  33. (set #GerAmigaGuide      "German Amiga-Guide")
  34. (set #GerDocumentation   "German Document (ASCII)")
  35. (set #GerTeXDVI          "German TeX DVI")
  36. (set #DocsDir            "Where do you wish to install the document(s)?")
  37. (set #ByeText            "Please read the configuration-chapter in the manual...")
  38.  
  39. ;
  40. ; eingestelle Sprache
  41. ;
  42.  
  43. (if (= @language "deutsch")
  44.   (
  45.     (set #NetCallDest   (cat "In welches Verzeichnis soll NetCall installiert werden? "
  46.                              "(es wird KEINE eigene Schublade für NetCall erzeugt.)"))
  47.     (set #NetCallWorking     "Installiere NetCall...")
  48.     (set #NetCallIcon   (cat "\nMöchten Sie das NetCall-Icon installieren?\n\n"
  49.                              "(Wird NetCall nur über die Shell oder über "
  50.                              "Skripts aufgerufen, ist das Icon nicht notwendig)"))
  51.     (set #InstallNetCallIcon "Installiere NetCall-Icon...")
  52.     (set #NetCallCfg    (cat "In welches Verzeichnis soll die "
  53.                              "Konfigurations-Datei von NetCall "
  54.                              "(NetCall.cfg) kopiert werden?"))
  55.     (set #CfgMan             "NetCall.cfg manuell installieren")
  56.     (set #InstallExtacy      "extacy.library installieren...")
  57.     (set #ExtacyLibrary (cat "In welches Verzeichnis soll die "
  58.                              "extacy.library kopiert werden?"))
  59.     (set #German             "deutsch (eingebaut)")
  60.     (set #English            "englisch")
  61.     (set #WhichCatalogs      "Welche Sprach-Kataloge sollen installiert werden?")
  62.     (set #InstallEnglish     "englischer NetCall.cfg installieren...")
  63.     (set #CatalogDir    (cat "In welches Verzeichnis soll(en) der/die "
  64.                              "Sprach-Katalog(e) kopiert werden?"))
  65.     (set #WhichDocs          "Welche Anleitungen von NetCall sollen installiert werden?")
  66.     (set #EngAmigaGuide      "englisches Amiga-Guide")
  67.     (set #EngDocumentation   "englische Dokumentation (ASCII)")
  68.     (set #EngTeXDVI          "englisches TeX DVI")
  69.     (set #GerAmigaGuide      "deutsches Amiga-Guide")
  70.     (set #GerDocumentation   "deutsche Dokumentation (ASCII)")
  71.     (set #GerTeXDVI          "deutsches TeX DVI")
  72.     (set #DocsDir            "In welches Verzeichnis soll(en) die Anleitung(en) kopiert werden?")
  73.     (set #ByeText            "Bitte lesen Sie das Konfigurations-Kapitel in der Dokumentation...")
  74.  
  75.   )
  76. )
  77.  
  78. ;
  79. ; NetCall-Zielverzeichnis auswählen
  80. ;
  81.  
  82. (set default-dest
  83.   (askdir
  84.     (prompt  #NetCallDest)
  85.     (default default-dest)
  86.     (help    @askdir-help)
  87.   )
  88. )
  89.  
  90. ;
  91. ; NetCall installieren
  92. ;
  93.  
  94. (working #NetCallWorking)
  95.  
  96. (if (AND (NOT (= (substr default-dest (- (strlen default-dest) 1 ) 1 ) ":" ))
  97.          (NOT (= (substr default-dest (- (strlen default-dest) 1 ) 1 ) "/" )))
  98.   ((set default-dest (cat default-dest "/"))
  99.     )
  100. )
  101.  
  102. (makeassign "NETCALL" default-dest)
  103.  
  104. (copyfiles
  105.    (prompt #NetCallWorking)
  106.    (source "NetCall") (dest default-dest)
  107. )
  108.  
  109. ;
  110. ; NetCall-Icon installieren, falls erwünscht
  111. ;
  112.  
  113. (if (askbool (prompt #NetCallIcon)
  114.              (help   @askbool-help))
  115.   (copyfiles
  116.     (prompt #InstallNetCallIcon)
  117.     (source "NetCall.info") (dest default-dest)
  118.   )
  119. )
  120.  
  121. ;
  122. ; NetCall.cfg in bestimmtes Verzeichnis kopieren
  123. ;
  124.  
  125. (set cfgpath (askchoice (prompt #NetCallCfg)
  126.                         (help   @askchoice-help)
  127.                         (choices "Mail:"
  128.                                  default-dest
  129.                                  #CfgMan)
  130.                         (default 0)
  131.               )
  132. )
  133.  
  134. (if (= cfgpath 0)
  135.   (copyfiles
  136.     (source "NetCall.cfg") (dest "Mail:")
  137.   )
  138. )
  139.  
  140. (if (= cfgpath 1)
  141.   (copyfiles
  142.     (source "NetCall.cfg") (dest default-dest)
  143.   )
  144. )
  145.  
  146. ;
  147. ; extacy.library kopieren
  148. ;
  149.  
  150. (if (exists "LIBS:extacy.library")
  151.   (copylib
  152.     (prompt #InstallExtacy)
  153.     (help @copylib-help)
  154.     (source "libs/extacy.library") (dest "LIBS:")
  155.     (confirm)
  156.   )
  157.   ((set libpath (askchoice (prompt #ExtacyLibrary)
  158.                         (help @askchoice-help)
  159.                         (choices "LIBS:"
  160.                                  default-dest)
  161.                         (default 0)
  162.                 )
  163.    )
  164.    (if (= libpath 0)
  165.     (copyfiles
  166.       (source "libs/extacy.library") (dest "LIBS:")
  167.     )
  168.    )
  169.    (if (= libpath 1)
  170.     (copyfiles
  171.       (source "libs/extacy.library") (dest default-dest)
  172.     )
  173.    )
  174.   )
  175. )
  176.  
  177. ;
  178. ; NetCall.catalog kopieren
  179. ;
  180.  
  181. (set catalog (askoptions (prompt  #WhichCatalogs)
  182.                          (help    @askoptions-help)
  183.                          (choices #German
  184.                                   #English)
  185.                          (default 1)
  186.              )
  187. )
  188.  
  189. (if (<> 0 (BITAND catalog 2))
  190.   (if (exists "LOCALE:catalogs/english/NetCall.catalog")
  191.     (copyfiles
  192.       (prompt #InstallEnglish)
  193.       (help   @copyfiles-help)
  194.       (source "catalogs/english/NetCall.catalog")
  195.       (dest   "LOCALE:catalogs/english")
  196.     )
  197.   ((set catpath (askchoice (prompt  #CatalogDir)
  198.                            (help    @askchoice-help)
  199.                            (choices "LOCALE:catalogs"
  200.                                     default-dest)
  201.                            (default 1)
  202.                 )
  203.    )
  204.    (if (= catpath 0)
  205.     ((if (not (exists "LOCALE:catalogs/english"))
  206.        (makedir "LOCALE:catalogs/english")
  207.      )
  208.      (copyfiles
  209.        (source "catalogs/english/NetCall.catalog")
  210.        (dest   "LOCALE:catalogs/english")
  211.      )
  212.     )
  213.    )
  214.    (if (= catpath 1)
  215.     ((if (not (exists "NETCALL:catalogs/english"))
  216.        ((makedir "NETCALL:catalogs") (makedir "NETCALL:catalogs/english"))
  217.      )
  218.      (copyfiles
  219.       (source "catalogs/english/NetCall.catalog")
  220.       (dest   "NETCALL:catalogs/english")
  221.      )
  222.     )
  223.    )
  224.   )
  225.  )
  226. )
  227.  
  228. ;
  229. ; Amiga-Guide von NetCall kopieren
  230. ;
  231.  
  232. (set docu (askoptions (prompt #WhichDocs)
  233.                       (help @askoptions-help)
  234.                       (choices #GerAmigaGuide
  235.                                #GerDocumentation
  236.                                #GerTeXDVI
  237.                                #EngAmigaGuide
  238.                                #EngDocumentation
  239.                                #EngTeXDVI)
  240.                       (default 1)
  241.            )
  242. )
  243.  
  244. (if (<> docu 0)
  245.   ((set docdest
  246.     (askdir
  247.       (prompt  #DocsDir)
  248.       (default default-dest)
  249.       (help    @askdir-help)
  250.     )
  251.    )
  252.    (if (<> 0 (BITAND docu 1))
  253.     (copyfiles
  254.       (source "Documentation/NetCall_Deutsch.guide")
  255.       (dest   docdest)
  256.       (infos)
  257.     )
  258.    )
  259.    (if (<> 0 (BITAND docu 2))
  260.     (copyfiles
  261.       (source "Documentation/NetCall_Deutsch.dok")
  262.       (dest   docdest)
  263.       (infos)
  264.     )
  265.    )
  266.    (if (<> 0 (BITAND docu 4))
  267.     (copyfiles
  268.       (source "Documentation/NetCall_Deutsch.dvi")
  269.       (dest   docdest)
  270.       (infos)
  271.     )
  272.    )
  273.    (if (<> 0 (BITAND docu 8))
  274.     (copyfiles
  275.       (source "Documentation/NetCall_English.guide")
  276.       (dest   docdest)
  277.       (infos)
  278.     )
  279.    )
  280.    (if (<> 0 (BITAND docu 16))
  281.     (copyfiles
  282.       (source "Documentation/NetCall_English.doc")
  283.       (dest   docdest)
  284.       (infos)
  285.     )
  286.    )
  287.    (if (<> 0 (BITAND docu 32))
  288.     (copyfiles
  289.       (source "Documentation/NetCall_English.dvi")
  290.       (dest   docdest)
  291.       (infos)
  292.     )
  293.    )
  294.   )
  295. )
  296.  
  297.  
  298. (message #ByeText)
  299.  
  300.  
  301. (set @default-dest default-dest)
  302.  
  303. (exit)
  304.